Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Herois/Codigo.Cst/00201_MM Missao Brilho.ls

Text File | 1999-03-19 | 1.6 KB | 54 lines

property spr, posIni, posFim, cronoIni, tempoTotal
property sprLinha, posIniLinha
property sprBranco

on beginSprite me
  set spr = 17
  set cronoIni = the timer
  set tempoTotal = 600 * 60
  set posIni = the locH of sprite spr
  set posFim = 640
  set sprLinha = 13
  set posIniLinha = the locH of sprite sprLinha
  set sprBranco = 120
end

on idleSprite me
  set x = the locH of sprite spr
  set nx = (the timer - cronoIni) * (posFim - posIni) / tempoTotal + posIni
  if nx <> x then
    global gMustUpdate
    set gMustUpdate = true
    set the locH of sprite spr = nx
    set the locH of sprite sprLinha = nx - posIni + posIniLinha
    if nx >= posFim then
      updateStage
      set the member of sprite 120 to member "BrancoExplosao"
      set the rect of sprite 120 to rect(0,0,640,480)
      set the foreColor of sprite 120 to (the backColor of member "FundoBranco") -- white
      puppetSprite 120,true
      set cronoIni = the timer
      if the colorDepth > 80 then
        set the ink of sprite 120 to 32
        repeat while the timer - cronoIni < 80
          set the blend of sprite sprBranco to (the timer - cronoIni)*100 /60
          set the visibility of sprite sprBranco to true
          updateStage
        end repeat
        set the blend of sprite sprBranco to 100
        updateStage
      else
        repeat while the timer - cronoIni < 80
          if random(2) = 1 then
            set the visibility of sprite sprBranco to true
          else
            set the visibility of sprite sprBranco to false
          end if
          updateStage
        end repeat
      end if
      -- Acaba de explodir e sai ...
      quit
    end if
  end if
end